home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / improv / demo / disk1 / install.001 / PICKFORD.MMM / meta.txt < prev   
Encoding:
Text File  |  1993-03-08  |  6.2 KB  |  71 lines
  1. Name
  2. ----
  3. Pickford
  4.  
  5. Strings
  6. ------
  7.  
  8. MacroMind Director
  9.  
  10. stxt
  11. ----
  12. -- 10/5 Macros 
  13.  
  14. macro initHilites
  15.   global normPauseControl, continueCast
  16.     set normPauseControl = the castNum of sprite 23 
  17.     set continueCast = (the castNum of sprite 23) + 2 
  18.     set the puppet of sprite 18 to true
  19.     set the puppet of sprite 19 to true
  20.     set the puppet of sprite 20 to true
  21.     set the puppet of sprite 21 to true
  22.     set the puppet of sprite 22 to true
  23.     set the puppet of sprite 23 to true
  24.     set the puppet of sprite 24 to true
  25.     set the immediate of sprite 18 to true
  26.     set the immediate of sprite 19 to true
  27.     set the immediate of sprite 20 to true
  28.     set the immediate of sprite 21 to true
  29.     set the immediate of sprite 22 to true
  30.     set the immediate of sprite 23 to true
  31.     set the immediate of sprite 24 to true
  32.  
  33. macro uninitHilites
  34.     set the puppet of sprite 18 to false
  35.     set the puppet of sprite 19 to false
  36.     set the puppet of sprite 20 to false
  37.     set the puppet of sprite 21 to false
  38.     set the puppet of sprite 22 to false
  39.     set the puppet of sprite 23 to false
  40.     set the puppet of sprite 24 to false
  41.     set the immediate of sprite 18 to false
  42.     set the immediate of sprite 19 to false
  43.     set the immediate of sprite 20 to false
  44.     set the immediate of sprite 21 to false
  45.     set the immediate of sprite 22 to false
  46.     set the immediate of sprite 23 to false
  47.     set the immediate of sprite 24 to false
  48.  
  49. macro McPause length
  50.     if length = empty then set endPause = the ticks + 30 -- new default = 1/2 second
  51.     else set endPause = the ticks + (length*60) -- converts length from seconds to  ticks
  52.     pause
  53.     repeat while the ticks < endPause
  54.       if the commandDown then exit repeat
  55.       else if the mouseDown then exit repeat
  56.     end repeat
  57.     continue
  58.    
  59. macro textPause length
  60.     global endPause
  61.     if length = empty then set endPause = the ticks + 120 -- default = 2 seconds
  62.     else set endPause = the ticks + (length*60) + 30 -- converts length from seconds to  ticks
  63.     -- half a second added for good measure 2/28
  64.    
  65.  
  66. macro PauseContinue
  67.    global endPause
  68.    set toFrame = the frame -1
  69.     if the ticks < endPause then
  70.         go frame toFrame
  71.     end if
  72.  
  73. macro pausePlay 
  74.   global normPauseControl,continueCast
  75.   set controlSprite = the clickon
  76.   if the castnum of sprite controlSprite =  continueCast then
  77.     set the castnum of sprite controlSprite to continueCast + 1 
  78.     updateStage   
  79.     continue
  80.     set the castnum of sprite controlSprite to normPauseControl 
  81.   else
  82.     set the castnum of sprite controlSprite to normPauseControl + 1
  83.     updateStage   
  84.     set the castnum of sprite controlSprite to continueCast 
  85.     updateStage   
  86.     pause
  87.   end if
  88.  
  89. macro doQuit
  90.    global normPauseControl, endReturnFrame
  91.    set controlSprite = the clickon
  92.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  93.    put the Frame into endReturnFrame
  94.    updatestage
  95.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  96.    updatestage
  97.    uninitHilites
  98.    go frame "quit"
  99.  
  100. macro goHelp
  101.    global  returnFrame
  102.    set controlSprite = the clickon
  103.    put the Frame into returnFrame
  104.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  105.    updatestage
  106.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  107.    updatestage
  108.    uninitHilites
  109.    go frame "Help"    
  110.  
  111. macro goIntro
  112.    set controlSprite = the clickon
  113.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  114.    updatestage
  115.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  116.    updatestage
  117.    play movie "Intro"
  118.    
  119. macro goMenu
  120.    set controlSprite = the clickon
  121.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  122.    updatestage
  123.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  124.    updatestage
  125.    go frame "Tour Menu" of movie "menu"
  126.  
  127. macro returnToTour
  128.   global returnFrame
  129.   go returnFrame
  130.   initHilites
  131.  
  132. macro rewind numb
  133.    global normPauseControl
  134.    if numb = empty then 
  135.         if the frame > marker(0) + 2 then 
  136.             set numb = 0
  137.         else
  138.             set numb = -1
  139.         end if
  140.     end if
  141.    set controlSprite = the clickon
  142.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  143.    go marker(numb)
  144.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  145.    set the castnum of sprite 23 to normPauseControl 
  146.  
  147. macro fastForward
  148.    global normPauseControl
  149.    set controlSprite = the clickon
  150.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite + 1
  151.    go marker(1)
  152.    set the castNum of sprite controlSprite = the castNum of sprite controlSprite - 1
  153.    set the castnum of sprite 23 to normPauseControl 
  154.  
  155. macro checkAutoPlay whichMovie
  156.     global AutoPlay
  157.     if AutoPlay = empty then set AutoPlay = false
  158.     if AutoPlay then 
  159.       delay 60
  160.       play movie whichMovie
  161.     else
  162.       pause
  163.     end if
  164.  
  165. Script Channel Commands
  166. --------------------
  167. McPause 1quitgoHelptextPause 4fastForwardtextPause 3textPause 2PausePlayMcPausetextPause 6textPause 5McPause 2rewindinitHilitesPauseContinuedoquitgoIntroreturnToTourpauserewind -2goMenutextPause 1set the puppet of sprite 23 to falseplay movie "Chaplan"McPause 4textPause 7checkAutoPlay  "Chaplan"
  168.  
  169. vwci
  170. ----
  171. 1116: hmgVGA
  172. 1118:  OpBack.PIC 
  173. 1234:  HELPSCRN.PIC
  174. 1235:  VIDEOS00.PIC
  175. 1236:  VIDEOS01.PIC
  176. 1237:  VIDEOS02.PIC
  177. 1238:  VIDEOS06.PIC
  178. 1239:  VIDEOS08.PIC
  179. 1240:  VIDEOS09.PIC
  180. 1241:  VIDEOS10.PIC
  181. 1242:  VIDEOS11.PIC
  182. 1243:  VIDEOS12.PIC
  183. 1244:  VIDEOS13.PIC
  184. 1245:  VIDEOS14.PIC
  185. 1246:  VIDEOS15.PIC
  186. 1247:  VIDEOS16.PIC
  187. 1248:  VIDEOS17.PIC
  188. 1249:  VIDEOS18.PIC
  189. 1250:  VIDEOS19.PIC
  190. 1251:  VIDEOS20.PIC
  191. 1252:  VIDEOS21.PIC
  192. 1253:  VIDEOS22.PIC
  193. 1254:  VIDEOS23.PIC
  194. 1255:  VIDEOS24.PIC
  195. 1256:  VIDEOS26.PIC
  196. 1257:  VIDEOS27.PIC
  197. 1258:  VIDEOS28.PIC
  198. 1260:  VIDEOS33.PIC
  199. 1261:  VIDEOS06.PIC
  200. 1262:  VIDEOS06.PIC
  201. 1263:  VIDEOS06.PIC
  202. 1264:  VIDEOS26.PIC
  203. 1277:  VIDEOS16.PIC
  204. 1299:  OVERLAP.PIC
  205. 1300:  OVERLAP0.PIC
  206. 1301:  OVERLAP1.PIC
  207. 1307:  SNAPRO8.PIC
  208. 1308:  MENUBAR.PIC
  209. 1398:  NEWVID4.PIC
  210. 1399:  NEWVID2.PIC
  211. 1400:  NEWVID1.PIC
  212. 1401:  NEWVID0.PIC
  213. 1402: 
  214. NEWVID.PIC
  215. 1408:  VIDEOS28.PIC
  216. 1409:  VIDEOS21.PIC
  217. 1415:  VIDEOS30.PIC
  218. 1417:  OVERLAP1.PIC
  219. 1419:  NEWVID2.PIC
  220. 1421: 
  221. GISH15.PIC
  222.